Beschrijving
Opent een opgegeven bestandsnaam en geeft een TextStream-object terug dat u kunt gebruiken om uit het bestand te lezen of iets aan het bestand toe te voegen.
Syntaxis
object.OpenTextFile(bestandsnaam[, iomodus[, maken[, indeling]]])
De syntaxis van de methode OpenTextFile bestaat uit de volgende onderdelen:
| Onderdeel | Beschrijving |
|---|---|
| Object | Vereist. Is altijd de naam van een FileSystemObject-object. |
| Bestandsnaam | Vereist. Tekenreeksexpressie die de naam van het bestand aangeeft dat u wilt openen. |
| iomodus | Optioneel. Geeft de invoer/uitvoermodus aan. Kan een van de twee constanten, ForReading of ForAppending zijn. |
| maken | Optioneel. Boole-waarde die aangeeft of een nieuw bestand moet worden gemaakt als de opgegeven bestandsnaam niet bestaat. De waarde is True als een nieuw bestand moet worden gemaakt, en False als het bestand niet moet worden gemaakt. De standaardinstelling is False. |
| indeling | Optioneel. Een van de drie Tristate-waarden die worden gebruikt om de indeling van een geopend bestand aan te geven. Als dit argument is weggelaten, wordt het bestand als ASCII geopend. |
Instellingen
Het argument iomodus kan een van de volgende waarden bevatten:
| Constante | Waarde | Beschrijving |
|---|---|---|
| ForReading | 1 | Opent een bestand alleen om te lezen. U kunt geen gegevens naar het bestand wegschrijven. |
| ForAppending | 8 | Opent een bestand en schrijft tot aan het einde van het bestand. |
Het argument indeling kan de volgende waarden bevatten:
| Constante | Waarde | Beschrijving |
|---|---|---|
| TristateUseDefault | û2 | Opent het bestand met de systeemstandaard. |
| TristateTrue | û1 | Opent het bestand als Unicode. |
| TristateFalse | 0 | Opent het bestand als ASCII. |
Notities
De volgende code illustreert het gebruik van de methode OpenTextFile om een bestand te openen waaraan tekst wordt toegevoegd:
Sub OpenTextFileTest
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Dim fs, f
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("c:\testbestand.txt", ForAppending,TristateFalse)
f.Write "Hallo allemaal!"
f.Close
End Sub